home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / ee26.exe / evil / raw.ini < prev    next >
Encoding:
INI File  |  1997-03-06  |  10.5 KB  |  248 lines
  1. [Raw]
  2. n0=#funky disabled
  3. n1=301:*:/echo -a ª $parm2 is away: $parm3* | /halt
  4. n2=311:*:/echo -a $str(54,_) | /echo -a ª 14 $+ $parm2 $+ 1 is [ $+ $parm3 $+ @ $+ $parm4 $+ ] | /halt
  5. n3=312:*:/echo -a ª $parm2 is using [ $+ $parm3 $+ ] | /halt
  6. n4=313:*:/echo -a ª 4 $+ $parm2 is an IRC Operator!! | /halt
  7. n5=314:*:/echo -a ª 4 $+ $parm2 $+ 12[[ $+ $parm4 $+ ]] | /echo -a ª real rame1:2 $+ $parm6* | /halt
  8. n6=317:*:/echo -a ª $parm2 has been idle $parm3 seconds | /halt
  9. n7=318:*:/echo -a ª end of /whois list. | /echo -a $str(54,») | /halt
  10. n8=319:*:/echo -a ª $parm2 is on [ $+ $parm3* $+ ] | /halt
  11. n9=402:*:/echo -a 4so such server... | /halt
  12. n10=403:*:/echo -a 4no such shannel on server... | /halt
  13. n11=404:*:/echo -a 4cannot send to channel. | /halt
  14. n12=405:*:/echo -a 4you're on too many channels, leave one and try again | /halt
  15. n13=406:*:/echo -a 4there was no such nick. | /halt
  16. n14=409:*:/echo -a 4no origin specified... | /halt
  17. n15=#funky end
  18. n16=;
  19. n17=#CloneStats disabled
  20. n18=315:*: {
  21. n19=  .disable #CloneStats
  22. n20=  %active $read c:evil\tag.txt IRC Clone Statistics for *!*@ $+ %scanclone . . .
  23. n21=  if ($count(%scan,$chr(32)) != 0) {
  24. n22=    %scannum = $count(%scan,$chr(32)) + 1
  25. n23=    if (%scannum == 2) { %active $token(1,32,%scan) and $token(2,32,%scan) are identical. }
  26. n24=    else {
  27. n25=      set %scanmultiple ""
  28. n26=      :multiple
  29. n27=      set %scanmultiple %scanmultiple $token(%scannum,32,%scan) $+ ,
  30. n28=      dec %scannum 1
  31. n29=      if (%scannum == 2) {
  32. n30=        %active %scanmultiple $token(1,32,%scan) and $token(2,32,%scan) are identical.
  33. n31=      }
  34. n32=      else { goto multiple }
  35. n33=    }
  36. n34=  }
  37. n35=  else { %active No clone detected. }
  38. n36=  unset %active %scan*
  39. n37=  halt
  40. n38=}
  41. n39=352:*: {
  42. n40=  if (%scanclone == $null) { set %scanclone $parm4 }
  43. n41=  if (%scan == $null) { set %scan $parm6 }
  44. n42=  else { set %scan %scan $parm6 }
  45. n43=  halt
  46. n44=}
  47. n45=#CloneStats end
  48. n46=;
  49. n47=#filterkick disabled
  50. n48=352:* { 
  51. n49=  if (%kickfilter ==  $null) { %kickfilter = $read -s $+ $parm2 temp.000 | %kickreason = $read -s $+ $parm2 temp.001 }
  52. n50=  if (%kickfilter iswm $parm6 $+ ! $+ $parm3 $+ @ $+ $parm4) { 
  53. n51=    if ($parm6 != $me) raw -q kick $parm2 $parm6 banned
  54. n52=  }
  55. n53=  halt
  56. n54=}
  57. n55=315:*:%kickchans = $remove(%kickchans,$parm2) | if (%kickchans == $null) { write -c temp.000 | write -c temp.001 } | unset %kickfilter %kickreason | halt
  58. n56=#filterkick end
  59. n57=367:*: { 
  60. n58=  if ($parm4 = $me) { 
  61. n59=    %bsite = %bsite $parm3 
  62. n60=    if ($token(0,32,%bsite) = 4) { mode $parm2 -bbbb %bsite | unset %bsite }
  63. n61=  }
  64. n62=}
  65. n63=368:*: { 
  66. n64=  if (%bsite != $null)  { 
  67. n65=    %b = -b 
  68. n66=    if ($token(0,32,%bsite) > 1) { 
  69. n67=      :n | %i = 1 |  inc %i 1 | %b = %b $+ b
  70. n68=      if (%i = $token(0,32,%bsite)) { mode $parm2 %b %bsite | goto end } 
  71. n69=      goto n
  72. n70=    }
  73. n71=    else { mode $parm2 -b %bsite | goto end }
  74. n72=  }
  75. n73=  :end | unset %bsite
  76. n74=}
  77. n75=#find disabled
  78. n76=352:*: {
  79. n77=  if ($parm4 == %add3) { set %nicks %nicks $parm6 }
  80. n78=}
  81. n79=315:*: {
  82. n80=  if ($count(%nicks,$chr(32)) != 0) { %show *** Clones online: %nicks }
  83. n81=  .disable #find | unset %nicks
  84. n82=}
  85. n83=#find end
  86. n84=;
  87. n85=#ChanStatsA disabled
  88. n86=315:*: {
  89. n87=  .disable #ChanStatsA
  90. n88=  %scanopper = $opnick(0,%scanchan) * 10000 | %scanopper = %scanopper / $nick(0,%scanchan)
  91. n89=  %scannopper = $nopnick(0,%scanchan) * 10000 | %scannopper = %scannopper / $nick(0,%scanchan)
  92. n90=  if ($len(%scanopper) == 5) { set %scanop all, 100.0%, have Ops :) . }
  93. n91=  elseif ($len(%scannopper) == 5) { set %scannop all, 100.0%, don't have Ops :) . }
  94. n92=  else {
  95. n93=    if ($right(1,%scanopper) >= 4) { inc %scanopper 10 }
  96. n94=    if ($right(1,%scannopper) > 5) { inc %scannopper 10 }
  97. n95=    if ($len(%scanopper) == 3) { set %scanopper 0 $+ %scanopper }
  98. n96=    if ($len(%scannopper) == 3) { set %scannopper 0 $+ %scannopper }
  99. n97=    if ($opnick(0,%scanchan) != 1) { set %scanop $opnick(0,%scanchan) $+ , $left(2,%scanopper) $+ . $+ $mid(3,1,%scanopper) $+ $chr(37) $+ , have Ops . . . }
  100. n98=    else { set %scanop 1, $left(2,%scanopper) $+ . $+ $mid(3,1,%scanopper) $+ $chr(37) $+ , has Ops . . . }
  101. n99=    if ($nopnick(0,%scanchan) != 1) { set %scannop $nopnick(0,%scanchan) $+ , $left(2,%scannopper) $+ . $+ $mid(3,1,%scannopper) $+ $chr(37) $+ , don't :) . }
  102. n100=    else { set %scannop 1, $left(2,%scannopper) $+ . $+ $mid(3,1,%scannopper) $+ $chr(37) $+ , doesn't :) . }
  103. n101=  }
  104. n102=  %active $read c:\evil\tag.txt Channel Statistics for %scanchan . . .
  105. n103=  %active $nick(0,%scanchan) names: $chr(160) %scanop %scannop
  106. n104=  set %scannumA 0 | set %scanmultiple ""
  107. n105=  if (%scanaway != $null) {
  108. n106=    %scannumB = $count(%scanaway,$chr(32)) + 1
  109. n107=    if (%scannumB == 1) { %active %scanaway is away. }
  110. n108=    elseif (%scannumB == 2) {
  111. n109=      %active $token(1,32,%scanaway) and $token(2,32,%scanaway) are away.
  112. n110=    }
  113. n111=    else {
  114. n112=      :away
  115. n113=      set %scanmultiple %scanmultiple $token(%scannumB,32,%scanaway) $+ ,
  116. n114=      dec %scannumB 1
  117. n115=      if (%scannumB == 2) {
  118. n116=        %active %scanmultiple $token(1,32,%scanaway) and $token(2,32,%scanaway) are away.
  119. n117=        set %scanmultiple ""
  120. n118=      }
  121. n119=      else { goto away }
  122. n120=    }
  123. n121=  }
  124. n122=  else { %active No one is away. }
  125. n123=  if (%scancop != $null) {
  126. n124=    %scannumB = $count(%scancop,$chr(32)) + 1
  127. n125=    if (%scannumB == 1) { %active %scancop is an IRC Operator. }
  128. n126=    elseif (%scannumB == 2) {
  129. n127=      %active $token(1,32,%scancop) and $token(2,32,%scancop) are IRC Operators.
  130. n128=    }
  131. n129=    else {
  132. n130=      :cop
  133. n131=      set %scanmultiple %scanmultiple $token(%scannumB,32,%scancop) $+ ,
  134. n132=      dec %scannumB 1
  135. n133=      if (%scannumB == 2) {
  136. n134=        %active %scanmultiple $token(1,32,%scancop) and $token(2,32,%scancop) are IRC Operators.
  137. n135=        set %scanmultiple ""
  138. n136=      }
  139. n137=      else { goto cop }
  140. n138=    }
  141. n139=  }
  142. n140=  else { %active No one is an IRC Operator. }
  143. n141=  if (%scansite == 1) {
  144. n142=    .disable #ChanStatsC
  145. n143=    %active CLONE Statistics . . .
  146. n144=    if (%scanclone != $null) {
  147. n145=      :start
  148. n146=      inc %scannumA 1
  149. n147=      if ($token(%scannumA,32,%scanclone) != $null) {
  150. n148=        %scannumB = $count( [ %scan [ $+ [ $token(%scannumA,32,%scanclone) ] ] ] ,$chr(32)) + 1
  151. n149=        if (%scannumB == 2) {
  152. n150=          %active $token(1,32, [ %scan [ $+ [ $token(%scannumA,32,%scanclone) ] ] ] ) and $token(2,32, [ %scan [ $+ [ $token(%scannumA,32,%scanclone) ] ] ] ) are identical.
  153. n151=          goto start
  154. n152=        }
  155. n153=        else {
  156. n154=          :multiple
  157. n155=          set %scanmultiple %scanmultiple $token(%scannumB,32, [ %scan [ $+ [ $token(%scannumA,32,%scanclone) ] ] ] ) $+ ,
  158. n156=          dec %scannumB 1
  159. n157=          if (%scannumB == 2) {
  160. n158=            %active %scanmultiple $token(1,32, [ %scan [ $+ [ $token(%scannumA,32,%scanclone) ] ] ] ) and $token(2,32, [ %scan [ $+ [ $token(%scannumA,32,%scanclone) ] ] ] ) are identical.
  161. n159=            set %scanmultiple ""
  162. n160=            goto start
  163. n161=          }
  164. n162=          goto multiple
  165. n163=        }
  166. n164=      }
  167. n165=    }
  168. n166=    else { %active No clone detected. }
  169. n167=  }
  170. n168=  else { .disable #ChanStatsB }
  171. n169=  .timer 1 2 %active $read c:\evil\tag.txt Channel Statistics are concluded.
  172. n170=  unset %active %scan*
  173. n171=  halt
  174. n172=}
  175. n173=#ChanStatsA end
  176. n174=;
  177. n175=#ChanStatsB disabled
  178. n176=352:*: {
  179. n177=  if (g isin $parm7) {
  180. n178=    if (%scanaway != $null) { set %scanaway %scanaway $parm6 }
  181. n179=    else { set %scanaway $parm6 }
  182. n180=  }
  183. n181=  if (* isin $parm7) {
  184. n182=    if (%scancop != $null) { set %scancop %scancop $parm6 }
  185. n183=    else { set %scancop $parm6 }
  186. n184=  }
  187. n185=  halt
  188. n186=}
  189. n187=#ChanStatsB end
  190. n188=;
  191. n189=#ChanStatsC disabled
  192. n190=352:*: {
  193. n191=  if (g isin $parm7) {
  194. n192=    if (%scanaway != $null) { set %scanaway %scanaway $parm6 }
  195. n193=    else { set %scanaway $parm6 }
  196. n194=  }
  197. n195=  if (* isin $parm7) {
  198. n196=    if (%scancop != $null) { set %scancop %scancop $parm6 }
  199. n197=    else { set %scancop $parm6 }
  200. n198=  }
  201. n199=  if (%scan [ $+ [ $parm4 ] ] == $null) { set %scan $+ $parm4 $parm6 }
  202. n200=  else {
  203. n201=    set %scan $+ $parm4 [ %scan [ $+ [ $parm4 ] ] ] $parm6
  204. n202=    if ((%scanclone != $null) && ($parm4 !isin %scanclone)) { set %scanclone %scanclone $parm4 }
  205. n203=    else { set %scanclone $parm4 }
  206. n204=  }
  207. n205=  halt
  208. n206=}
  209. n207=#ChanStatsC end
  210. n208=;
  211. n209=#scan disabled
  212. n210=315:*:disable #scan | showclone
  213. n211=352:* {
  214. n212=  set %adrs $parm6 $+ ! $+ $parm3 $+ @ $+ $parm4
  215. n213=  set %clones $mask(%adrs,2)
  216. n214=  %clist = %clist %clones
  217. n215=  %nlist = %nlist $parm6
  218. n216=  inc %ptr
  219. n217=  set %addy $mask(%adrs,3)
  220. n218=  inc %ppl
  221. n219=  if (($level(%addy) == =1) || ($level(%addy) == 1))  { /inc %enemy | %enemyn = %enemyn $parm6 }
  222. n220=  if (($left(2,$parm7) == H@) || ($left(2,$parm7) == G@)) { /inc %op | set %opn %opn $parm6 } |  else { /inc %nop | set %nopn %nopn $parm6  }
  223. n221=  if (G isin $parm7) { /inc %appl | %appln = %appln $parm6 }
  224. n222=  if (+ isin $parm7) { /inc %vppl | %vppln = %vppln $parm6 }
  225. n223=  if (($left(2,$parm7) == H*) || ($left(2,$parm7) == G*)) { /inc %ircop  | %ircopn = %ircopn $parm6 }
  226. n224=  ;  if (($level(%addy) > 199) && ($level(%addy) < 501) && ($parm6 !isop $parm2)) { /mode $parm2 +o $parm6 }
  227. n225=}
  228. n226=#scan end 
  229. n227=;
  230. n228=#icmp disabled
  231. n229=352:*:if ($parm6 != $me) { echo 4 -a Warning: $+ $parm6 @ $parm4 is connected } | halt
  232. n230=315:*:halt
  233. n231=#icmp end
  234. n232=;
  235. n233=#massunban start
  236. n234=367:*: {
  237. n235=  if (%numban == 6) { %numban = 1 | inc %readban | writeini $mircdir $+ bans.ini bans %readban $parm3 }
  238. n236=  elseif (%numban == $null) { inc %numban | writeini $mircdir $+ bans.ini bans %readban $parm3 }
  239. n237=  else { inc %numban | %muchban = $readini $mircdir $+ bans.ini bans %readban | writeini $mircdir $+ bans.ini bans %readban %muchban $parm3 }
  240. n238=  halt
  241. n239=}  
  242. n240=368:*: { %i = 0 | :start | inc %i | if (%i > %readban) { goto end } | else { %procban = $readini $mircdir $+ bans.ini bans %i | raw mode $parm2 -bbbbbb %procban | goto start } | :end | .disable #massunban | unset %numban %muchban %readban | notice $parm2 $bb1 Ban List iS Cleard !! $bb2 | write -c $mircdir $+ bans.ini }
  243. n241=#massunban end
  244. n242=;
  245. n243=#killer start
  246. n244=311:*:if (%killer isin $parm3 $+ @ $+ $parm4) { kick $chan $nick Banned. }
  247. n245=#killer end
  248.